1 dict begin /s exch def
picLeft picTop translate
picRight picLeft sub s 2 get s 0 get sub div
picBottom picTop sub s 1 get s 3 get sub div
scale
s 0 get neg s 3 get neg translate
end
/showpage {} def
/copypage {} def


pse
currentpoint
/picBottom exch def
/picRight exch def
psb


pse
currentpoint
/picTop exch def
/picLeft exch def
psb